Peaucellier-Lipkin Linkage (701)

To move the linkage give the Speed slider a non-zero value.

If this fails to work (which can happen after clicking the  reset icon) then 

Right-click on the BLUE point and select "Animation on" or reload the page.

Frame DImensions

Animation Speed

Locus

Path

Inversion

b = 3.7 (slider from 0 to 10, step 0.1)
a = 8.2 (slider from 0 to 20, step 0.1)
h_2 = 1.6 (slider from Δω to 20, step 0.1)
h_1 = 1.6 (slider from Δω to 20, step 0.1)
B: (0, h_1)
ω = 3.5 (slider from 2 * Δω to 20, step 0.1)
C: (ω, h_2)
g_1 = Circle(C, B)
h = Circle(C, ω)
H = Point(h)
G = Point(h)
p = CircleArc(C, G, H)
P_{10} = Point(p)
r = Circle(P_{10}, b)
BasePoint_1 = Intersect(xAxis, yAxis)
BasePoint_2: (ω, 0)
Δω = 0.36 (slider from 0 to 2, step 0.01)
P_1: (-Δω, h_1)
P_2: (-Δω, -Δω)
P_3: (ω + Δω, -Δω)
P_4: (ω + Δω, h_2)
P_5: (ω - Δω, h_2)
P_6: (ω - Δω, Δω)
P_7: (Δω, Δω)
P_8: (Δω, h_1)
C_1: (0, h_1 + Δω)
C_2: (ω, h_2 + Δω)
poly1, p_1, p_2, p_3, p_4, p_5, p_6, p_7, p_8 = Polygon(P_1, P_2, P_3, P_4, P_5, P_6, P_7, P_8)
c = CircumcircleArc(P_8, C_1, P_1)
d = CircumcircleArc(P_4, C_2, P_5)
A = (-3.92, 6.02)
D = (-1.26, 6.02)
E = (-1.26, 2.36)
F = (-3.92, 2.36)
poly2, a_1, d_1, e, f = Polygon(A, D, E, F)
g = Circle(B, a)
k = Circle(C, 3 * a)
Speed = 0 (slider from -10 to 10, step 0.1)
A_1 = (-3.92, 2.22)
D_1 = (-1.26, 2.22)
E_1 = (-1.26, 0.3)
F_1 = (-3.92, 0.3)
poly2_1, a_2, d_2, e_1, f_1 = Polygon(A_1, D_1, E_1, F_1)
q = Circle(B, a)
J, K = Intersect(r, q)
s = Segment(K, J)
I' = Mirror(P_{10}, s)
m = Segment(B, K)
O, T = Intersect(g_1, m)
i = Segment(C, P_{10})
j = Segment(P_{10}, J)
l = Segment(P_{10}, K)
L = Point(m)
n = Segment(L, J)
t = Segment(K, I')
b_1 = Segment(I', J)
loc1 = Locus(I', P_{10})
M = Intersect(m, t)
P = Intersect(l, j)
O_1 = Intersect(j, b_1)
P_9 = Intersect(n, m)
P' = Intersect(t, b_1)
c_1 = Circle(B, C)
R, U = Intersect(c_1, i)
o = false
u = false
OP = Distance(O, P_{10})
OP' = Distance(O, I')
rad_k: sqrt(OP * OP')
r_1 = Circle(O, rad_k)
k_1 = Circle(C, P_{10})
v = false
rs: rad_k^(2)
text3: "OP × OP' = " + (LaTeX[OP]) + " × " + (LaTeX[OP']) + " = " + (LaTeX[rs]) + " = " + (LaTeX[rad_k]) + "^2"